home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00013_SlideShow.ls < prev    next >
Encoding:
Text File  |  2002-04-15  |  1.6 KB  |  43 lines
  1. global DBPath, CurFly
  2.  
  3. on exitFrame me
  4.   db = DGOpenDatabase(DBPath & "FlyBox.mdb", 0, 0, ";PWD=StopLooking")
  5.   if CurFly = 0 then
  6.     rs = DGCreateRecordset("SELECT TOP 1 StartFrom FROM Registration", db)
  7.     CurFly = DGRSGetFieldValue("StartFrom", rs)
  8.     DGRSClose(rs)
  9.   end if
  10.   WhichDir = getVariable(sprite(1), "SlideShow:Direc")
  11.   if WhichDir = "B" then
  12.     rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly WHERE FlyID < " & CurFly & " ORDER BY FlyID DESC", db)
  13.     if DGRSisBOF(rs) then
  14.       DGRSClose(rs)
  15.       rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly ORDER BY FlyID DESC", db)
  16.     end if
  17.   else
  18.     if WhichDir = "S" then
  19.       rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly ORDER BY FlyID", db)
  20.     else
  21.       if WhichDir = "E" then
  22.         rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly ORDER BY FlyID DESC", db)
  23.       else
  24.         rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly WHERE FlyID > " & CurFly & " ORDER BY FlyID", db)
  25.         if DGRSisEOF(rs) then
  26.           DGRSClose(rs)
  27.           rs = DGCreateRecordset("SELECT TOP 1 Fly.* FROM Fly ORDER BY FlyID", db)
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32.   CurFly = DGRSGetFieldValue("FlyID", rs)
  33.   DGExecute("UPDATE Registration SET StartFrom = " & CurFly, db)
  34.   setVariable(sprite(1), "SlideShow:Direc", "F")
  35.   setVariable(sprite(1), "SlideShow:FlyID", DGRSGetFieldValue("FlyID", rs) & EMPTY)
  36.   setVariable(sprite(1), "SlideShow:FlyName", DGRSGetFieldValue("FlyName", rs))
  37.   setVariable(sprite(1), "SlideShow:Picture", DGRSGetFieldValue("Picture", rs))
  38.   setVariable(sprite(1), "SlideShow:Finished", "T")
  39.   DGRSClose(rs)
  40.   DGClose(db)
  41.   go("Finished")
  42. end
  43.